home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 6 / 006.d81 / elec. night star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  43 lines
  1. 5 poke53281,7:poke53280,1:printchr$(144):printchr$(142)
  2. 10 printchr$(147):printchr$(14)
  3. 15 gosub500:printchr$(142)
  4. 20 print"election night"
  5. 30 print"by"
  6. 40 print"john  beltrami"
  7. 50 print"1 - election process explanation"
  8. 60 print"2 - let's tabulate the votes"
  9. 62 print"3 - exit back to loadstar   "
  10. 70 print"your choice: ";:poke198,0:wait198,1:gety$
  11. 80 ify$="1"thenf$="election doc":goto200
  12. 90 ify$="2"thenf$="election night":goto200
  13. 92 ify$="3"thenf$="hello":goto200
  14. 100 print"[145][145][145][145]":goto70
  15. 200 print"[147]load"chr$(34)f$chr$(34)",8":print"run"
  16. 210 poke631,13:poke632,13:poke198,2:end
  17. 500 print"[147]"
  18. 510 print"  [200]ave you ever thought you might be ":print
  19. 520 print"able to predict the winner of the ":print
  20. 530 print"[208]residential elections, just like the ":print
  21. 540 print"the national newcasters do, if only you":print
  22. 550 print"had a way to keep track of all the ":print
  23. 560 print"votes??  [197][204][197][195][212][201][207][206][160][206][201][199][200][212] is what you've ":print
  24. 570 print"been waiting for!!  [206]ot only will ":print
  25. 580 print"[197][204][197][195][212][201][207][206][160][206][201][199][200][212] allow you to enter the ":print
  26. 590 print"results as they are announced, state by":print
  27. 600 print"state, it will assign electoral votes ":print
  28. 610 print"according to the popular vote.":gosub5000
  29. 620 print"  [201]f you're not sure what the electoral":print
  30. 630 print"college is all about, the program will ":print
  31. 640 print"explain it for you. [211]ince the electoral":print
  32. 650 print"vote assignments are accurate for each ":print
  33. 660 print"state until the next census, you can  ":print
  34. 670 print"keep using this program until 1990. [217]ou":print
  35. 680 print"can even enter your own numbers to see ":print
  36. 690 print"how much popular vote it takes to swing":print
  37. 700 print"the election from one candidate to the ":print
  38. 710 print"another.":gosub5000:return
  39. 5000 poke783,peek(783)and254
  40. 5002 poke781,24:poke782,13:sys65520
  41. 5004 print"<press a key>"
  42. 5006 poke198,0:wait198,1:print"[147]":return
  43.